home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / graphics / sviewiv / superviewlibrary / packersupport / install_unpack next >
Text File  |  1999-11-30  |  1KB  |  47 lines
  1. ;
  2. ; $VER: Install_UnpackObject.script V2.2 (16.7.95)
  3. ; © 1994-95 by Andreas R. Kleinert.
  4. ; This is the Installer Script for my Unpack-SVObject
  5. ;
  6. ; Modified by © 1998-99 Dámaso D. Estévez :)
  7.  
  8. ; ------------------------------------------------------
  9.  
  10. ; English strings (default)
  11.  
  12. (set #msj1 "Library Path")
  13. (set #msj2 "Installing `Unpack.svobject' to ")
  14.  
  15. ; Spanish strings
  16.  
  17. (if (= @language "español")
  18.         (
  19.                 (set #msj1 "¿Dónde está instalada la biblioteca `superview.library'?")
  20.                 (set #msj2 "Instalando módulo Unpack.svobject en ")
  21.         )
  22. )
  23.  
  24. ; ------------------------------------------------------
  25.  
  26. (set svlibdir
  27.             (askdir
  28.                    (prompt #msj1)
  29.                    (help @askdir-help)
  30.                    (newpath)
  31.                    (default "LIBS:")
  32.             )
  33. )
  34.  
  35. (makedir (tackon svlibdir "svobjects"))
  36.  
  37. (set #msj2 (cat #msj2 svlibdir "/svobjects..."))
  38.  
  39. (copyfiles
  40.   (prompt #msj2)
  41.   (help @copyfiles-help)
  42.   (source "libs/svobjects")
  43.   (dest (tackon svlibdir "svobjects"))
  44.   (pattern "#?.svobject")
  45.   (files)
  46. )
  47.